debut 

i=1;
lire(i);
ecrire(i);

fin